/*
 * To change this template, choose Tools | Templates
 * and open the template in the editor.
 */

package matematicadiscretaxml;

import arbol_prueba.BTree;
import arbol_prueba.BTreeException;
import java.util.ArrayList;
import java.util.Stack;

/**
 *
 * @author diego
 */
public class Set {

    ArrayList lista_lexemas = new ArrayList();
    private ArrayList lista_errores_set = new ArrayList();

    Stack pila_pal_reserv = new Stack();
    Stack pila_identifica = new Stack();
    Stack pila_simbolos = new Stack();
    Stack pila_operadores = new Stack();

    public Set(){}

    public Set(ArrayList _lista_lexemas)
    {
        lista_lexemas = _lista_lexemas;
    }

    public void ingresarPilas()
    {
        boolean bandera_set = false;
        boolean bandera_where = false;
        boolean bandera_error = false;
        int contador_identificador = 0;

        for(int i = 0; i < lista_lexemas.size(); i++)
        {
            if(!bandera_error)
            {
                if(((Lexema)lista_lexemas.get(i)).getLexema().toLowerCase().equals("set") )
                {
                    bandera_set = true;
                }
                if( ((Lexema)lista_lexemas.get(i)).getLexema().toLowerCase().equals("where") )
                {
                    bandera_where = true;
                }
                if(bandera_set == true && bandera_where == false )
                {
                    switch( ((Lexema)lista_lexemas.get(i)).getTipo_lexema() )
                    {
                        /*
                         * AQUI DEBE HABER UN ELSE YA QUE SOLO DEBEN HABER
                         * IDENTIFICADORES, SIMBOLOS, CONSTANTES CADENAS
                         *  Y CONSTANTES NUMEROS
                         */
                        case 1:
                            if( ((Lexema)lista_lexemas.get(i)).getLexema().toLowerCase().equals("set") )
                            {
                                pila_pal_reserv.push(lista_lexemas.get(i));
                            }
                            else
                            {
                                bandera_error = true;
                                lista_errores_set.add(new Error("SENTENCIA ACTUALIZACION", "EXISTEN PALABRAS RESERVADAS NO PERMITIDAS EN LA ACTUALIZACION"));
                            }
                            break;
                        case 2:
                            if( ((Lexema)lista_lexemas.get(i)).getLexema().toLowerCase().equals(",") )
                            {
                                pila_simbolos.push(lista_lexemas.get(i));
                            }
                            else
                            {
                                lista_errores_set.add(new Error("SENTENCIA ACTUALIZACION", "EXISTEN SIMBOLOS NO PERMITIDOS EN LA ACTUALIZACION"));
                            }
                            
                            break;
                        case 3:
                            if( ((Lexema)lista_lexemas.get(i)).getLexema().toLowerCase().equals("=") )
                            {
                                pila_operadores.push(lista_lexemas.get(i));
                            }
                            else
                            {
                                lista_errores_set.add(new Error("SENTENCIA ACTUALIZACION", "EXISTEN OPERADORES NO PERMITIDOS EN LA ACTUALIZACION"));
                            }
                            break;
                        case 4:
                            contador_identificador++;
                            pila_identifica.push(lista_lexemas.get(i));
                            break;
                        case 6:
                            pila_identifica.push(lista_lexemas.get(i));
                            break;
                        case 5:
                            pila_identifica.push(lista_lexemas.get(i));
                            break;
                        default:
                            bandera_error = true;
                            lista_errores_set.add(new Error("SENTENCIA ACTUALIZACION", "EXISTEN PALABRAS NO PERMITIDAS EN LA ACTUALIZACION"));
                            break;
                    }
                }
            }

        }
        if(!bandera_set)
        {
            lista_errores_set.add(new Error("SENTENCIA ACTUALIZACION", "NO SE ENCONTRO LA SENTENCIA SET"));
        }
//        else if(contador_identificador != 1)
//        {
//            lista_errores_set.add(new Error("SENTENCIA ACTUALIZACION", "NO SE ENCONTRO IDENTIFICADORES"));
//        }
    }

    public BTree generarSubArbolSet(BTree nodo_padre)
    {
        BTree nodo_aux = new BTree(null);

        if(nodo_padre.getElement() == "nulo")
        {
            if( ((Lexema)pila_pal_reserv.peek()).getLexema().toLowerCase().equals("set"))
            {
                nodo_aux = new BTree(pila_pal_reserv.pop());
                try
                {
                    /*
                     * AQUI SE DEBE HACER LA PRIMERA LLAMADA RECURSIVA
                     */
                    if(pila_pal_reserv.empty() )
                    {
                        if(!pila_simbolos.empty())
                        {
                            nodo_aux.insertar(generarSubArbolSet(nodo_aux), BTree.LADO_DRCHO);
                            nodo_aux.insertar(generarSubArbolSet(nodo_aux), BTree.LADO_IZDO);
                        }
                        else
                        {
                            if(!pila_operadores.empty())
                            {
                                nodo_aux.insertar(generarSubArbolSet(nodo_aux), BTree.LADO_DRCHO);
                                nodo_aux.insertar(generarSubArbolSet(nodo_aux), BTree.LADO_IZDO);
                            }
                            else
                            {
                                lista_errores_set.add(new Error("BLOQUE SET", "EXISTEN OPERADORES Y SIMBOLOS MAL UTILIZADOS"));
                            }
                        }
                    }
                    else
                    {
                        lista_errores_set.add(new Error("BLOQUE SET", "EXISTE UNA PALABRA RESERVADA MAL UTILIZADA"));
                    }
                    
                }
                catch (BTreeException ex)
                {
                    System.out.println(ex.getMessage());
                }
            }
            else
            {
                lista_errores_set.add(new Error("BLOQUE SET", "NO COMIENZA CON LA PALABRA WHERE"));
            }
        }
        else
        {
            if( (((Lexema)nodo_padre.getElement()).getLexema()).toLowerCase().equals("set"))
            {
                if(nodo_padre.getDerecha() == null)
                {
                    nodo_aux = new BTree(new Lexema(0, null));
                }
                else
                {
                    if(!pila_operadores.empty() || !pila_simbolos.empty())
                    {
                        if(!pila_simbolos.empty())
                        {
                            if(((Lexema)pila_simbolos.peek()).getLexema().toLowerCase().equals(","))
                            {
                                nodo_aux = new BTree(pila_simbolos.pop());
                                if(!pila_operadores.empty() )
                                {
                                    try
                                    {
                                        nodo_aux.insertar(generarSubArbolSet(nodo_aux), BTree.LADO_DRCHO);
                                        nodo_aux.insertar(generarSubArbolSet(nodo_aux), BTree.LADO_IZDO);
                                    }
                                    catch (BTreeException ex)
                                    {
                                        System.out.println(ex.getMessage());
                                    }
                                }
                                else
                                {
                                    lista_errores_set.add(new Error("BLOQUE SET", "DEBE HABER UN OPERADOR "));
                                }
                            }
                            else
                            {
                                lista_errores_set.add(new Error("BLOQUE SET", "EXISTE UN SIMBOLO PROHIBIDO EN SET"));
                            }
                            
                        }
                        else if(!pila_operadores.empty())
                        {
                            nodo_aux = new BTree(pila_operadores.pop());
                            if(!pila_identifica.empty() )
                            {
                                try
                                {
                                    nodo_aux.insertar(generarSubArbolSet(nodo_aux), BTree.LADO_DRCHO);
                                    nodo_aux.insertar(generarSubArbolSet(nodo_aux), BTree.LADO_IZDO);
                                }
                                catch (BTreeException ex)
                                {
                                    System.out.println(ex.getMessage());
                                }
                            }
                            else
                            {
                                lista_errores_set.add(new Error("BLOQUE SET", "DEBE HABER DOS IDENTIFICADORES "));
                            }
                        }
                        else
                        {
                            lista_errores_set.add(new Error("BLOQUE SET", "DEBE EXISTIR UN OPERADOR"));
                        }
                    }
                    else
                    {
                        lista_errores_set.add(new Error("BLOQUE SET", "DEBE EXISTIR UN SIMBOLO O UN OPERADOR"));
                    }
                }
            }
            else
            {
                if( ((Lexema)nodo_padre.getElement()).getTipo_lexema() == 2
                        && ((Lexema)nodo_padre.getElement()).getLexema().toLowerCase().equals(","))
                {
                    if(nodo_padre.getDerecha() == null)
                    {
                        if(!pila_operadores.empty())
                        {
                            nodo_aux =new BTree(pila_operadores.pop());
                            try
                            {
                                nodo_aux.insertar(generarSubArbolSet(nodo_aux), BTree.LADO_DRCHO);
                                nodo_aux.insertar(generarSubArbolSet(nodo_aux), BTree.LADO_IZDO);
                            }
                            catch (BTreeException ex)
                            {
                                System.out.println(ex.getMessage());
                            }
                        }
                        else
                        {
                            lista_errores_set.add(new Error("BLOQUE SET", "FALTA UN OPERADOR "));
                        }
                    }
                    else
                    {
                        if(pila_simbolos.empty())
                        {
                            if(!pila_operadores.empty())
                            {
                                nodo_aux =new BTree(pila_operadores.pop());
                                try
                                {
                                    nodo_aux.insertar(generarSubArbolSet(nodo_aux), BTree.LADO_DRCHO);
                                    nodo_aux.insertar(generarSubArbolSet(nodo_aux), BTree.LADO_IZDO);

                                }
                                catch (BTreeException ex)
                                {
                                    System.out.println(ex.getMessage());
                                }
                            }
                            else
                            {
                                lista_errores_set.add(new Error("BLOQUE SET", "FALTA UN OPERADOR"));
                            }
                        }
                        else
                        {
                            nodo_aux =new BTree(pila_simbolos.pop());
                            if(!pila_operadores.empty())
                            {
                                try
                                {
                                    nodo_aux.insertar(generarSubArbolSet(nodo_aux), BTree.LADO_IZDO);
                                    nodo_aux.insertar(generarSubArbolSet(nodo_aux), BTree.LADO_DRCHO);
                                }
                                catch (BTreeException ex)
                                {
                                    System.out.println(ex.getMessage());
                                }
                            }
                            else
                            {
                                lista_errores_set.add(new Error("BLOQUE SET", "FALTA UN SIMBOLO U OPERADOR"));
                            }
                        }
                    }
                }
                else 
                {
                    if(((Lexema)nodo_padre.getElement()).getTipo_lexema() == 3
                        && ((Lexema)nodo_padre.getElement()).getLexema().toLowerCase().equals("=")     )
                    {
                        if(!pila_identifica.empty())
                        {

                            nodo_aux = new BTree(pila_identifica.pop());
                        }
                        else
                        {
                            lista_errores_set.add(new Error("BLOQUE SET", "FALTA UN IDENTIFICADOR"));
                        }    
                    }
                    else
                    {
                        lista_errores_set.add(new Error("BLOQUE SET", "EXISTE UN SIMBOLO U OPERADOR PROHIBIDO"));
                    }

                }
            }
        }
        return nodo_aux;
    }

    /**
     * @return the lista_errores_set
     */
    public ArrayList getlista_errores_set() {
        return lista_errores_set;
    }

    /**
     * @param lista_errores_set the lista_errores_set to set
     */
    public void setlista_errores_set(ArrayList lista_errores_set) {
        this.lista_errores_set = lista_errores_set;
    }

}
